home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)expo87.d64 / commodore logo.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  51 lines
  1. 4 PRINT"[147]"
  2. 5 POKE53280,0:POKE53281,0
  3. 10 B=53248
  4. 15 POKEB+23,255:POKEB+29,255
  5. 20 FORI=0TO62
  6. 30 READA
  7. 40 POKE64*200+I,A
  8. 50 NEXTI
  9. 60 POKE2040,200:POKE2041,200:POKE2042,200:POKE2043,200:POKE2044,200
  10. 65 POKE2045,200:POKE2046,200:POKE2047,200
  11. 66 POKEB+39,1:POKEB+40,2:POKEB+41,3:POKEB+42,4:POKEB+43,5
  12. 67 POKEB+44,6:POKEB+45,7:POKEB+46,8:POKEB+47,9
  13. 70 POKEB+21,255
  14. 80 POKEB,160
  15. 90 POKEB+1,127
  16. 100 DATA0,0,0,0,124,0,1,254,0,3,254,0,7,254,0,15,130,0,30,1,255,60,1,254
  17. 110 DATA56,1,252,56,1,248,56,0,0,56,1,248,56,1,252,60,1,254,30,1,255,15,130,0
  18. 120 DATA7,254,0,3,254,0,1,254,0,0,124,0,0,0,0
  19. 130 X1=INT(255*RND(1)+1)
  20. 135 POKEB,X1
  21. 140 Y1=INT(255*RND(1)+1)
  22. 145 POKEB+1,Y1
  23. 150 X2=INT(255*RND(1)+1)
  24. 155 POKEB+2,X2
  25. 160 Y2=INT(255*RND(1)+1)
  26. 165 POKEB+3,Y2
  27. 170 X3=INT(255*RND(1)+1)
  28. 175 POKEB+4,X3
  29. 180 Y3=INT(255*RND(1)+1)
  30. 185 POKEB+5,Y3
  31. 230 X4=INT(255*RND(1)+1)
  32. 235 POKEB+6,X4
  33. 240 Y4=INT(255*RND(1)+1)
  34. 245 POKEB+7,Y4
  35. 250 X5=INT(255*RND(1)+1)
  36. 255 POKEB+8,X5
  37. 260 Y5=INT(255*RND(1)+1)
  38. 265 POKEB+9,Y5
  39. 270 X6=INT(255*RND(1)+1)
  40. 275 POKEB+10,X6
  41. 280 Y6=INT(255*RND(1)+1)
  42. 285 POKEB+11,Y6
  43. 350 X7=INT(255*RND(1)+1)
  44. 355 POKEB+12,X7
  45. 360 Y7=INT(255*RND(1)+1)
  46. 365 POKEB+15,Y8
  47. 370 X8=INT(255*RND(1)+1)
  48. 375 POKEB+14,X8
  49. 380 Y8=INT(255*RND(1)+1)
  50. 620 GOTO130
  51.